CU Amiga Super CD-ROM 17/CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso/CUCD/Online/News/Thor/HD-Install/thor25_arexx.lha/TicTacToe.thor

Text File | 1996-10-26 | 11KB | 519 lines

/* TicTacToe.thor by Troels Walsted Hansen (some additional stuff by Sigbjørn Skjæret)
** $VER: TicTacToe.thor v1.12 (30.05.95)
**
** Play TicTacToe!
**
** Tons of code ripped from:
** 'TicTacSpot v1.0 © 1993 PSR Software'
*/

TEMPDIR = 'T:'

/* needs THOR and bbsread.library functions */

options results

p = ' ' || address() || ' ' || show('P',,)
thorport = pos(' THOR.',p)

if thorport > 0 then thorport = word(substr(p,thorport+1),1)
else
do
    say 'No THOR port found!'
    exit 10
end

if ~show('p', 'BBSREAD') then
do
    address command
        "run >nil: `GetEnv THOR/THORPath`bin/LoadBBSRead"
        "WaitForPort BBSREAD"
end

/* start of script */

address(thorport)
SAVEMESSAGE CURRENT FILENAME '"' || TEMPDIR || 'TicTacToe.thor.temp' || '"' NOHEADER NOANSI

if ~Open('Inp',TEMPDIR'TicTacToe.thor.temp','r') then
do
   REQUESTNOTIFY TEXT '"Cannot open temporary file: ' || TEMPDIR || 'TicTacToe.thor.temp"' BT '"_Ok"'
   exit
end

do y=1 to 4
   do x=1 to 3
      POS.x.y=' '
   end
end

newgame = 0

do until pos('* TicTacToe',LINE)>0
   If Eof('Inp') Then Do
      REQUESTNOTIFY TEXT '"Message contains no TicTacToe data!"' BT '"_Ok"'
      REQUESTNOTIFY TEXT '"Start new game?"' BT '"_Yes|_No"'
      if(rc=0 & result = 1) then do
        newgame = 1
        call close('Inp')
        signal PlayMove
      end
      exit
   end
   if exists('Ram:Plop') then exit
   LINE=readln('Inp')
end

call readln('Inp')
LINE.1=readln('Inp')
call readln('Inp')
call readln('Inp')
LINE.2=readln('Inp')
call readln('Inp')
call readln('Inp')
LINE.3=readln('Inp')
call readln('Inp')
call readln('Inp')
xplayer = substr(readln('Inp'), 7)
oplayer = substr(readln('Inp'), 7)

call close('Inp')

do y=1 to 3
  parse var LINE.y POS1' | 'POS2' | 'POS3
  POS1=right(POS1,2)
  POS2=left(POS2,2)
  POS3=left(POS3,2)
  if POS1='/\' then POS.1.y='o'
  if POS1='\/' then POS.1.y='x'
  if POS2='/\' then POS.2.y='o'
  if POS2='\/' then POS.2.y='x'
  if POS3='/\' then POS.3.y='o'
  if POS3='\/' then POS.3.y='x'
end

PlayMove:

    address(thorport)
    CURRENTBBS stem CURRENT
    if(rc ~= 0) then
    do
        address(thorport)
        REQUESTNOTIFY TEXT '"'THOR.LASTERROR'"' BT '"_Ok"'
        signal exit
    end

    address(bbsread)
    GETBBSDATA bbsname '"'CURRENT.BBSNAME'"' stem BBSDATA
    if(rc ~= 0) then
    do
        address(thorport)
        REQUESTNOTIFY TEXT '"'BBSREAD.LASTERROR'"' BT '"_Ok"'
        signal exit
    end

    if(BBSDATA.USERNAME = '') then
    do
        GETGLOBALDATA stem GLOBALDATA
            if(rc ~= 0) then
            do
                address(thorport)
                REQUESTNOTIFY TEXT '"'BBSREAD.LASTERROR'"' BT '"_Ok"'
                signal exit
            end

        if(GLOBALDATA.USERNAME = '') then signal exit
        else username = GLOBALDATA.USERNAME
    end
    else username = BBSDATA.USERNAME

    if(newgame) then xplayer = username

    select
        when(username = oplayer) then
        do
            PIECE = 'o'
        end

        when(username = xplayer) then
        do
            PIECE = 'x'
        end

        otherwise signal exit
    end

address(thorport)

DONE=0

do until DONE=1
  BOARD=POS.1.1 || '|' || POS.2.1 || '|' || POS.3.1 || '\n' || POS.1.2 || '[' || POS.2.2 || ']' || POS.3.2 || '\n' || POS.1.3 || '|' || POS.2.3 || '|' || POS.3.3
  REQUESTNOTIFY TEXT '"' || 'Top Row:\n' || board || '"' BT '"t_L|t_M|t_R|_Next|_Cancel"'
  if result=0 then exit
  if result=1 then if POS.1.1=' ' then do
    DONE=1
    POS.1.1=PIECE
  end
  if result=2 then if POS.2.1=' ' then do
    DONE=1
    POS.2.1=PIECE
  end
  if result=3 then if POS.3.1=' ' then do
    DONE=1
    POS.3.1=PIECE
  end
  if result=4 then do until DONE=1|result=4
    REQUESTNOTIFY TEXT '"' || 'Middle Row:\n' || board || '"' BT '"m_L|m_M|m_R|_Next|_Cancel"'
    if result=0 then exit
    if result=1 then if POS.1.2=' ' then do
      DONE=1
      POS.1.2=PIECE
    end
    if result=2 then if POS.2.2=' ' then do
      DONE=1
      POS.2.2=PIECE
    end
    if result=3 then if POS.3.2=' ' then do
      DONE=1
      POS.3.2=PIECE
    end
    if result=4 then do until DONE=1|result=4
      REQUESTNOTIFY TEXT '"' || 'Bottom Row:\n' || board || '"' BT '"b_L|b_M|b_R|_Next|_Cancel"'
      if result=0 then exit
      if result=1 then if POS.1.3=' ' then do
        DONE=1
        POS.1.3=PIECE
      end
      if result=2 then if POS.2.3=' ' then do
        DONE=1
        POS.2.3=PIECE
      end
      if result=3 then if POS.3.3=' ' then Do
        DONE=1
        POS.3.3=PIECE
      end
    end
  end
end

if(newgame) then
do
    EVENT.TYPE = 0 /* entermsg */

    address(bbsread)
    GETBBSLIST stem BBSLIST
    if(rc ~= 0) then
    do
        address(thorport)
        REQUESTNOTIFY TEXT '"'BBSREAD.LASTERROR'"' BT '"_Ok"'
        exit 5
    end

    address(thorport)
    REQUESTLIST instem BBSLIST title '"Select BBS:"' SIZEGADGET
    if(rc ~= 0) then exit
    else MSG.BBSNAME = result

    address(bbsread)
        GETCONFLIST '"'MSG.BBSNAME'"' CONFLIST
    if(rc ~= 0) then
    do
        address(thorport)
        REQUESTNOTIFY TEXT '"'BBSREAD.LASTERROR'"' BT '"_Ok"'
        exit 5
    end

    address(thorport)

    REQUESTLIST instem CONFLIST title '"Select conf:"' SIZEGADGET
    if(rc ~= 0) then exit
    else EVENT.CONFERENCE = result

    REQUESTSTRING TITLE '"Please enter subject of message:"' BT '"_Ok|_Cancel"' ID '"TicTacToe"' MAXCHARS 100
    EVENT.SUBJECT = result
    if(rc ~= 0 | EVENT.SUBJECT = "") then exit

    do forever
        REQUESTSTRING TITLE '"Please enter the name of your opponent:"' BT '"_Ok|_Cancel "' MAXCHARS 200
        if(rc ~= 0) then signal exit
        EVENT.TONAME = result

        if(upper(EVENT.TONAME) ~= "ALL") then
        do
            address(bbsread)
            SEARCHBRUSER bbsname '"'MSG.BBSNAME'"' stem USERS search '"'EVENT.TONAME'"' name address alias suggestusersstem SUG
            if(rc ~= 0) then signal exit

            if(result > 0) then
            do
                drop LIST.
                drop USERTAGS.

                LIST.COUNT = USERS.COUNT

                do n = 1 to USERS.COUNT
                    LIST.n.USERNR = USERS.n.USERNR

                    address(bbsread)
                    READBRUSER bbsname '"'MSG.BBSNAME'"' usernr USERS.n.USERNR tagsstem USERTAGS
                    if(rc ~= 0) then signal exit
                    LIST.n = USERTAGS.NAME

                    if(symbol("USERTAGS.ADDRESS") = "VAR") then
                        LIST.n.ADDRESS = USERTAGS.ADDRESS
                end

                address(thorport)
                REQUESTLIST instem LIST title '"Select user:"'
                if(rc ~= 0) then
                do
                    if(rc ~= 5) then REQUESTNOTIFY TEXT '"'THOR.LASTERROR'"' BT '"_Ok"'
                    signal exit
                end

                EVENT.TONAME = result

                do n = 1 to LIST.COUNT
                    if(LIST.n = EVENT.TONAME) then
                        EVENT.TOADDR = LIST.n.ADDRESS
                end
                leave
            end
            else
            do
                if(symbol("SUG.COUNT") = "VAR") then do
                    address(thorport)
                    REQUESTLIST instem SUG title '"Select user:"'
                    if(rc ~= 0) then
                    do
                        if(rc ~= 5) then REQUESTNOTIFY TEXT '"'THOR.LASTERROR'"' BT '"_Ok"'
                        signal exit
                    end

                    EVENT.TONAME = result

                    do n = 1 to SUG.COUNT
                        if(SUG.n = EVENT.TONAME) then
                            usernumber = SUG.n.USERNR
                    end

                    drop USERTAGS.

                    address(bbsread)
                    READBRUSER bbsname '"'MSG.BBSNAME'"' usernr usernumber tagsstem USERTAGS
                    if(rc ~= 0) then signal exit

                    if(symbol("USERTAGS.ADDRESS") = "VAR") then
                        EVENT.TOADDR = USERTAGS.ADDRESS

                    leave
                end
                else
                do
                    address(thorport)
                    REQUESTNOTIFY TEXT '"No matching users found, try again?"' BT '"_Ok|_Cancel"'
                    if(rc ~= 0) then signal exit
                    if(result = 0) then signal exit
                end
            end
        end
        else signal exit /* doesn't work with ALL */
    end

    oplayer = EVENT.TONAME
end
else
do
    CURRENTMSG stem MSG

    address(bbsread)
    READBRMESSAGE bbsname '"'MSG.BBSNAME'"' confname '"'MSG.CONFNAME'"' msgnr '"'MSG.MSGNR'"' headstem HEAD textstem TEXT

    EVENT.TYPE = 1 /* replymsg */
    EVENT.TONAME = HEAD.FROMNAME
    EVENT.SUBJECT = HEAD.SUBJECT
    EVENT.CONFERENCE = MSG.CONFNAME
    EVENT.REFNR = MSG.MSGNR
    EVENT.REFORGINALNR = HEAD.ORGINALNR
    /*EVENT.REFID = HEAD.REFID*/
    /*EVENT.TOADDR = TEXT.REPLYADDR*/
end

call open('Oup',TEMPDIR'TicTacToe.thor.temp','w')

LINE1=' >  '
LINE2=' >  '
LINE3=' >  '
LINE4=' >  '
LINE5=' >  '
LINE6=' >  '
If POS.1.1='x' Then Do
  LINE1=LINE1||'\/ |'
  LINE2=LINE2||'/\ |'
End
If POS.1.1='o' Then Do
  LINE1=LINE1||'/\ |'
  LINE2=LINE2||'\/ |'
End
If POS.1.1=' ' Then Do
  LINE1=LINE1||'   |'
  LINE2=LINE2||'   |'
End
If POS.2.1='x' Then Do
  LINE1=LINE1||' \/ |'
  LINE2=LINE2||' /\ |'
End
If POS.2.1='o' Then Do
  LINE1=LINE1||' /\ |'
  LINE2=LINE2||' \/ |'
End
If POS.2.1=' ' Then Do
  LINE1=LINE1||'    |'
  LINE2=LINE2||'    |'
End
If POS.3.1='x' Then Do
  LINE1=LINE1||' \/'
  LINE2=LINE2||' /\'
End
If POS.3.1='o' Then Do
  LINE1=LINE1||' /\'
  LINE2=LINE2||' \/'
End

If POS.1.2='x' Then Do
  LINE3=LINE3||'\/ |'
  LINE4=LINE4||'/\ |'
End
If POS.1.2='o' Then Do
  LINE3=LINE3||'/\ |'
  LINE4=LINE4||'\/ |'
End
If POS.1.2=' ' Then Do
  LINE3=LINE3||'   |'
  LINE4=LINE4||'   |'
End
If POS.2.2='x' Then Do
  LINE3=LINE3||' \/ |'
  LINE4=LINE4||' /\ |'
End
If POS.2.2='o' Then Do
  LINE3=LINE3||' /\ |'
  LINE4=LINE4||' \/ |'
End
If POS.2.2=' ' Then Do
  LINE3=LINE3||'    |'
  LINE4=LINE4||'    |'
End
If POS.3.2='x' Then Do
  LINE3=LINE3||' \/'
  LINE4=LINE4||' /\'
End
If POS.3.2='o' Then Do
  LINE3=LINE3||' /\'
  LINE4=LINE4||' \/'
End

If POS.1.3='x' Then Do
  LINE5=LINE5||'\/ |'
  LINE6=LINE6||'/\ |'
End
If POS.1.3='o' Then Do
  LINE5=LINE5||'/\ |'
  LINE6=LINE6||'\/ |'
End
If POS.1.3=' ' Then Do
  LINE5=LINE5||'   |'
  LINE6=LINE6||'   |'
End
If POS.2.3='x' Then Do
  LINE5=LINE5||' \/ |'
  LINE6=LINE6||' /\ |'
End
If POS.2.3='o' Then Do
  LINE5=LINE5||' /\ |'
  LINE6=LINE6||' \/ |'
End
If POS.2.3=' ' Then Do
  LINE5=LINE5||'    |'
  LINE6=LINE6||'    |'
End
If POS.3.3='x' Then Do
  LINE5=LINE5||' \/'
  LINE6=LINE6||' /\'
End
If POS.3.3='o' Then Do
  LINE5=LINE5||' /\'
  LINE6=LINE6||' \/'
End

  call writeln('Oup',' ')
  call writeln('Oup',' > * TicTacToe')
  call writeln('Oup',' >')
  call writeln('Oup',LINE1)
  call writeln('Oup',LINE2)
  call writeln('Oup',' > ----+----+----')
  call writeln('Oup',LINE3)
  call writeln('Oup',LINE4)
  call writeln('Oup',' > ----+----+----')
  call writeln('Oup',LINE5)
  call writeln('Oup',LINE6)
  call writeln('Oup',' >')
  call writeln('Oup',' > X: 'xplayer)
  call writeln('Oup',' > O: 'oplayer)
  call writeln('Oup',' ')

call close('Oup')

address(bbsread)
UNIQUEMSGFILE bbsname '"'MSG.BBSNAME'"' stem UNIQUEFILE
if(rc ~= 0) then
do
    address(thorport)
    REQUESTNOTIFY TEXT '"'BBSREAD.LASTERROR'"' BT '"_Ok"'
    exit
end

address command 'copy >nil: ' || TEMPDIR || 'TicTacToe.thor.temp' || ' TO ' || UNIQUEFILE.NAME
EVENT.MSGFILE = UNIQUEFILE.FILEPART

address(bbsread)
WRITEBREVENT bbsname '"'MSG.BBSNAME'"' event EVENT.TYPE stem EVENT
if(rc ~= 0) then
do
    address(thorport)
    REQUESTNOTIFY TEXT '"'BBSREAD.LASTERROR'"' BT '"_Ok"'
    exit 5
end

address(thorport)
SHOWTEXT TEMPDIR'TicTacToe.thor.temp'

address command 'delete >nil: ' || TEMPDIR || 'TicTacToe.thor.temp'

address(thorport)
REQUESTNOTIFY TEXT '"Edit message?"' BT '"_Yes|_No"'
if(result=1) then STARTEDITOR FILE '"'UNIQUEFILE.NAME'"'

exit

/*
 > * TicTacToe
 >
 >  \/ | /\ | \/
 >  /\ | \/ | /\
 > ----+----+----
 >  \/ | /\ | \/
 >  /\ | \/ | /\
 > ----+----+----
 >  \/ | /\ | \/
 >  /\ | \/ | /\
 >
 > X: Sigbjørn Skjæret
 > O: Troels Walsted_Hansen
*/

signal exit:
    address command 'delete' TEMPDIR'TicTacToe.thor.temp quiet'
    exit